home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #11 / Amiga Plus CD - 2004 - No. 11.iso / AmiSoft / Dev / basic / blitzgtfix.lha / BlitzGTFix / BBGTLib_Examples / gtmx.bb2 < prev    next >
Text File  |  2002-01-27  |  1KB  |  44 lines
  1. WbToScreen 3
  2. Use Screen 3
  3.  
  4. LoadFont 2,"opal.font",9
  5. Use IntuiFont 2
  6.  
  7.  
  8. ; DONT USE COMMANDS WHICH USE A3 AS A PARAMETER DIRECTLY WITH HEX$
  9. ; COS IT GOES SCREWY
  10.  
  11. GTTags #GTMX_TitlePlace,#PLACETEXT_ABOVE    ; OS3+, Text$ ignored on anything less
  12. foo.l=GTMX(0,1,20,20,15,15,"Normal",#PLACETEXT_RIGHT,"hi|there|monkey|boy")
  13. NPrint Hex$(foo)
  14.  
  15. GTTags #GTMX_TitlePlace,#PLACETEXT_ABOVE    ; OS3+, Text$ ignored on anything less
  16. foo.l=GTMX(0,2,170,20,15,15,"Disabled",#PLACETEXT_RIGHT|$40,"hi|there|monkey|boy")
  17. NPrint Hex$(foo)
  18.  
  19. GTTags #GTMX_TitlePlace,#PLACETEXT_ABOVE    ; OS3+, Text$ ignored on anything less
  20. foo.l=GTMX(0,3,320,20,20,9,"Scaled",#PLACETEXT_RIGHT|$200,"hi|there|monkey|boy")
  21. NPrint Hex$(foo)
  22.  
  23. GTTags #GTMX_TitlePlace,#PLACETEXT_ABOVE    ; OS3+, Text$ ignored on anything less
  24. foo.l=GTMX(0,4,470,20,15,15,"Active",#PLACETEXT_RIGHT,"hi|there|monkey|boy",3)
  25. NPrint Hex$(foo)
  26.  
  27.  
  28. AddIDCMP #MXIDCMP
  29.  
  30. Window 0,0,0,600,300,$100f,"jjlk",-1,-1
  31. DefaultOutput
  32.  
  33. AttachGTList 0,0
  34. While ev.l<>#IDCMP_CLOSEWINDOW
  35.     ev.l=WaitEvent
  36.     Select ev
  37.         Case #IDCMP_GADGETDOWN
  38.             NPrint "MX gadget ",GadgetHit," hit, option number ",EventCode," selected"
  39.     End Select
  40. Wend
  41. DetachGTList 0
  42. End
  43.  
  44.